Psygnosis Promotional CD-ROM for E3 1998/Psygnosis Promotional CD-ROM for E3 1998.iso/introseq.dir/00019_Script_19

Text File | 1998-05-08 | 3KB | 84 lines

global gLangList, gLangObj, gPlatformList, gPlatformObj
global ■, baseCount, gAction, gWhichList
-------------------------------------------
on startmovie
  set ■ = pi()
  set gAction = 0
  set gLangList = initFlyers(2, 8)
  set gPlatformList = initFlyers(9, 13)
  prepareNextAction
end startMovie
-------------------------------------------
on idle
  if rollOver(2) OR rollOver(3) OR rollOver(4) OR rollOver(5) OR rollOver(6) OR rollOver(7) OR rollOver(8) OR ¼
rollOver(9) OR rollOver(10) OR rollOver(11) OR rollOver(12) OR rollOver(13) then cursor[15,16]
  else cursor[17,18]
  -------------------------------------------
on initFlyers a, b
  set objectList = []
  repeat with n = a to b
    puppetSprite n, 1
    set the blend of sprite n to 100
    set flyer = 0
    set flyer = new(script "Image Script", n, n)
    append objectList, flyer
  end repeat
  RETURN objectList
end initFlyers
-------------------------------------------
on briefFlyers whichList, endPosList, triggerList, accelOrDecel, steps
  repeat with n = 1 to count(whichList)
    set theSprite = the mySprite of getAt(gWhichList, n)
    set startPos = [the locH of sprite theSprite, the locV of sprite theSprite]
    set endPosition = getAt(endPosList, n)
    set myTrigger = getAt(triggerList, n)
    set flyer = getAt(whichList, n)
    setFlyInfo(flyer, startPos, endPosition, steps, myTrigger, accelOrDecel)
  end repeat
end  briefFlyer
-------------------------------------------
on fly
  repeat with n = 1 to count(gWhichList)
    fly getAt(gWhichList, n)
  end repeat
end fly
-------------------------------------------
on prepareNextAction
  set gAction = gAction + 1
  if gAction = 1 then briefFlyOn gLangList, 565, 444, 20
  else if gAction = 2 then nothing
  else if gAction = 3 then briefFlyOff gLangList, 10
  else if gAction = 4 then briefFlyOn gPlatformList, the locH of sprite (the mySprite of gLangObj), the locV of sprite (the mySprite of gLangObj), 20
  else if gAction = 5 then nothing
  else if gAction = 6 then briefFlyOff gPlatformList, 10
  else if gAction = 7 then closeGap
  else if gAction = 8 then quitOut
end prepareNextAction
-------------------------------------------
on closeGap
  set gPlatformList = [gPlatformObj]
  briefFlyOn gPlatformList, the locH of sprite (the mySprite of gLangObj), the locV of sprite (the mySprite of gLangObj), 6
end closeGap
-------------------------------------------
on quitOut
  --  go to frame "wait"
  go to frame "video" of movie "Psygnosis.dir"
  cursor 200
end quitOut
-------------------------------------------
on stopMovie
  --  set gLangList = 0
  --  set gLangObj = 0
  --  set gPlatformList = 0
  --  set gPlatformObj = 0
  --  set ■ = 0
  --  set baseCount = 0
  --  set gAction = 0
  --  set gWhichList = 0
end stopMovie